<%

Function torneio_federacoes(conexao, federacoes)

	DIM total
	
	total = 0

	str = "Select id, nome FROM federacoes order by nome asc"
   	Set rs = conexao.Execute(str)	
	
	Do while not rs.eof
	
		federacoes(total,0) = rs("id")
		federacoes(total,1) = rs("nome")
		total=total+1
	
	rs.MoveNext
	loop
	
	torneio_federacoes = total
	
End Function

Function torneio_federacoes_id(conexao, federacoes, id)

	DIM total
	
	total = 0

	str = "Select id, nome FROM federacoes where id="&id
   	Set rs = conexao.Execute(str)	
	
	Do while not rs.eof
	
		federacoes(total,0) = rs("id")
		federacoes(total,1) = rs("nome")
		total=total+1
	
	rs.MoveNext
	loop
	
	torneio_federacoes_id = total
	
End Function
%>